ԭ涯3.51϶7.0SP2ϸװ˵

 ˴ȡܶվŵ޸
 ϰṩվĲһ,Ϊṩ
 ,ԲҸ.

 ð汾3.51ACCESSDvbbs Version 7.0.0Sp2                 
ǩ
                                                                    
 ļ˵ʵֶûݿͳһ½ͳһ               
                                                                    
ǩ
 ޸ģ  [ յߣHTTP://WWW.15165.COM ]  QQ588540     
                                                                    
 ݶ3.51϶7.0SP1޸ĶԱԭ汾˴޸     

һ޸Ķԭ3.51ļ嵥
User_Checklogin.asp
User_Logout.asp
User_RegPost.asp
Admin_PhotoProperty.asp
Admin_SoftProperty.asp
Admin_User.asp
Inc/Regbbs.asp
Inc/conn_user.asp
Inc/function.asp

1User_Checklogin.asp
sub SaveCookie_asp163()&&ԭ涯3.5166

ԭsub SaveCookie_asp163()
	Response.Cookies("asp163")("UserName")=username
	Response.Cookies("asp163")("Password") = PassWord
	Response.Cookies("asp163")("UserLevel")=rs("UserLevel")
	if UserTableType="Dvbbs6.0" then
		Response.Cookies("aspsky")("username") = username
		Response.Cookies("aspsky")("password") = PassWord
		Response.Cookies("aspsky")("userclass") = rs("userclass")
		Response.Cookies("aspsky")("userid") = rs("userid")
		Response.Cookies("aspsky")("userhidden") = 2
		Response.Cookies("aspsky")("usercookies") = CookieDate
	elseif UserTableType="Dvbbs6.1" then
		Response.Cookies("aspsky")("username") = username
		Response.Cookies("aspsky")("password") = PassWord
		Response.Cookies("aspsky")("userclass") = rs("userclass")
		Response.Cookies("aspsky")("userid") = rs("userid")
		Response.Cookies("aspsky")("userhidden") = 2
		Response.Cookies("aspsky")("usercookies") = CookieDate
	end if
	Response.Cookies("asp163")("CookieDate") = CookieDate
	select case CookieDate
		case 0
			'not save
		case 1
		   	Response.Cookies("asp163").Expires=Date+1
		case 2
			Response.Cookies("asp163").Expires=Date+31
		case 3
			Response.Cookies("asp163").Expires=Date+365
	end select
end sub
޸Ϊ
sub SaveCookie_asp163()
	'Response.Cookies("asp163")("UserName")=username
	'Response.Cookies("asp163")("Password") = PassWord
	Response.Cookies("asp163")("UserLevel")=rs("UserLevel")
	if UserTableType="Dvbbs6.0" then
		Response.Cookies("asp163")("username") = username
		Response.Cookies("asp163")("password") = PassWord
		Response.Cookies("asp163")("userclass") = rs("userclass")
		Response.Cookies("asp163")("userid") = rs("userid")
		Response.Cookies("asp163")("userhidden") = 2
		Response.Cookies("asp163")("usercookies") = CookieDate
	elseif UserTableType="Dvbbs6.1" then
		Response.Cookies("asp163")("username") = username
		Response.Cookies("asp163")("password") = PassWord
		Response.Cookies("asp163")("userclass") = rs("userclass")
		Response.Cookies("asp163")("userid") = rs("userid")
		Response.Cookies("asp163")("userhidden") = 2
		Response.Cookies("asp163")("usercookies") = CookieDate
	end if
	Response.Cookies("asp163")("CookieDate") = CookieDate
	select case CookieDate
		case 0
			'not save
		case 1
		   	Response.Cookies("asp163").Expires=Date+1
		case 2
			Response.Cookies("asp163").Expires=Date+31
		case 3
			Response.Cookies("asp163").Expires=Date+365
	end select
end sub

2User_Logout.asp
ԭȫ룺
<%
	Response.Cookies("asp163")("UserName")=""
	Response.Cookies("asp163")("Password")=""
	Response.Cookies("asp163")("UserLevel")=""
	
	Response.Cookies("aspsky")("username")=""
	Response.Cookies("aspsky")("password")=""
	Response.Cookies("aspsky")("userclass")=""
	Response.Cookies("aspsky")("userid")=""
	Response.Cookies("aspsky")("userhidden")=""
	Response.Cookies("aspsky")("usercookies")=""
	session("userid")=""
	
	dim ComeUrl
	ComeUrl=trim(request("ComeUrl"))
	if ComeUrl="" then
		ComeUrl=Request.ServerVariables("HTTP_REFERER")
		if ComeUrl="" then ComeUrl="index.asp" end if
	end if
	Response.Redirect ComeUrl
%>
ȫ滻Ϊ
<%
response.Redirect("bbs/logout.asp")
	Response.Cookies("asp163")("UserName")=""
	Response.Cookies("asp163")("Password")=""
	Response.Cookies("asp163")("UserLevel")=""
	Response.Cookies("asp163")("username")=""
	Response.Cookies("asp163")("password")=""
	Response.Cookies("asp163")("userclass")=""
	Response.Cookies("asp163")("userid")=""
	Response.Cookies("asp163")("userhidden")=""
	Response.Cookies("asp163")("usercookies")=""
	session("userid")=""
	
	dim ComeUrl
	ComeUrl=trim(request("ComeUrl"))
	if ComeUrl="" then
		ComeUrl=Request.ServerVariables("HTTP_REFERER")
		if ComeUrl="" then ComeUrl="index.asp" end if
	end if
	Response.Redirect ComeUrl
%>

3User_RegPost.asp
ңrsReg(db_User_Valid_Unit)=1&&ԭ涯3.51127
ӣ
		rsReg(db_User_Userclass)="·"
		rsReg(db_User_Userwealth)=100
		rsReg(db_User_Userep)=1
		rsReg(db_User_Usercp)=50
		rsReg(db_User_Userinfo)="||||||||||||||||||||||||||||||||||||||||||"
		rsReg(db_User_Usersetting)="1|||0|||0"
		rsReg(db_User_Usergroupid)=4
		rsReg(db_User_titlepic)="level0.gif"
		rsReg(db_User_Usermsg)="0||0||null"
		rsReg(db_User_Userface)="Images/userface/image1.gif"
		rsReg(db_User_Userfav)="İ,ҵĺ,"
		rsReg(db_User_Usertoday)="0|0|0"
		rsReg(db_User_Userim)="||||||||||||||||||"
		rsReg(db_User_Userwidth)=60
		rsReg(db_User_Userheight)=102
		rsReg(db_User_UserGroup)=""

ңif UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then&&ԭ涯3.51142
ԭ:	if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
			rsReg(db_User_UserClass) = FU_UserClass
			rsReg(db_User_TitlePic) = FU_TitlePic
			rsReg(db_User_UserGroupID) = FU_UserGroupID
			rsReg(db_User_Face) = FU_Face
			rsReg(db_User_FaceWidth) = FU_FaceWidth
			rsReg(db_User_FaceHeight) = FU_FaceHeight
			rsReg(db_User_UserWealth) = FU_UserWealth
			rsReg(db_User_UserEP) = FU_UserEP
			rsReg(db_User_UserCP) = FU_UserCP
			rsReg(db_User_UserGroup) = FU_UserGroup
			rsReg(db_User_Showre) = FU_Showre
		end if 
޸Ϊ
'		if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
'			rsReg(db_User_UserClass) = FU_UserClass
'			rsReg(db_User_TitlePic) = FU_TitlePic
'			rsReg(db_User_UserGroupID) = FU_UserGroupID
'			rsReg(db_User_Face) = FU_Face
'			rsReg(db_User_FaceWidth) = FU_FaceWidth
'			rsReg(db_User_FaceHeight) = FU_FaceHeight
'			rsReg(db_User_UserWealth) = FU_UserWealth
'			rsReg(db_User_UserEP) = FU_UserEP
'			rsReg(db_User_UserCP) = FU_UserCP
'			rsReg(db_User_UserGroup) = FU_UserGroup
'			rsReg(db_User_Showre) = FU_Showre
'		end if 

4UserInfo.asp
ļеdb_User_Faceĳdb_User_userFace
ע⣺db_User_FaceWidthֶҪģĴdb_User_Faceֱֶü±򿪲޸ļɣ

5Admin_PhotoProperty.asp
ң<!--#include file="inc/conn.asp"-->&&ԭ涯3.519
ӣ<!--#include file="inc/Conn_User.asp"-->

6Admin_SoftProperty.asp
ң<!--#include file="inc/conn.asp"-->&&ԭ涯3.519
ӣ<!--#include file="inc/Conn_User.asp"-->

7Admin_User.asp
ңif UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
ѣ		if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
			rsReg(db_User_UserClass) = FU_UserClass
			rsReg(db_User_TitlePic) = FU_TitlePic
			rsReg(db_User_UserGroupID) = FU_UserGroupID
			rsReg(db_User_Face) = FU_Face
			rsReg(db_User_FaceWidth) = FU_FaceWidth
			rsReg(db_User_FaceHeight) = FU_FaceHeight
			rsReg(db_User_UserWealth) = FU_UserWealth
			rsReg(db_User_UserEP) = FU_UserEP
			rsReg(db_User_UserCP) = FU_UserCP
			rsReg(db_User_UserGroup) = FU_UserGroup
			rsReg(db_User_Showre) = FU_Showre
		end if 
Ϊ
	if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
		rsReg(db_User_UserClass) ="·"
		rsReg(db_User_TitlePic) ="level0.gif"
		rsReg(db_User_UserGroupID) =4
		rsReg(db_User_USERFace) ="Images/userface/image1.gif"
		rsReg(db_User_ArticleCount)=0
		rsReg(db_User_ArticleChecked)=0
		rsReg(db_User_LoginTimes)=1
		rsReg(db_User_LastLoginTime)=NOW()
		rsReg(db_User_ChargeType)=ChargeType
		rsReg(db_User_Userwealth)=100
		rsReg(db_User_Userep)=1
		rsReg(db_User_Usercp)=50
		rsReg(db_User_Userinfo)="||||||||||||||||||||||||||||||||||||||||||"
		rsReg(db_User_Usersetting)="1|||0|||0"
		rsReg(db_User_Usermsg)="0||0||null"
		rsReg(db_User_Userfav)="İ,ҵĺ,"
		rsReg(db_User_Usertoday)="0|0|0"
		rsReg(db_User_Userim)="||||||||||||||||||"
		rsReg(db_User_Userwidth)=60
		rsReg(db_User_Userheight)=102
		rsReg(db_User_UserGroup)=""

	end if 


8Inc/Regbbs.asp
ȫ滻ɣ
<%
sub UpdateUserNum(RegUserName)
conn_user.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&RegUserName&"'")
			Application.Lock
			Application.Contents.Remove("asp163_setup")
			Application.UnLock	
end sub
%>

9Inc/conn_user.asp
ѣUserTableType = "mypower"    &&ԭ涯3.513
ΪUserTableType = "Dvbbs6.1"    &&Ϊ޸ķͲΪDvbbs7.0ˡ:)

ѣdb_bbs="database/useryyewuhjdjhgutwehdskjwewyt.mdb"  &&ԭ涯3.516
Ϊdb_bbs="bbs/data/Dvbbs7.asp"      'Dvbbs7.aspΪ̳ݿļλ

ѣConst db_User_Table="[User]"&&ԭ涯3.5116
ΪConst db_User_Table="[Dv_User]"

ңConst db_User_ID="UserID"&&ԭ涯3.5119
ѣConst db_User_ID="UserID"˾µдȫΪ
Const db_User_ID="UserID"					'ûID
Const db_User_Name="UserName"					'û
Const db_User_Sex="UserSex"					'Ա
Const db_User_Email="UserEmail"					'Emailַ
Const db_User_Homepage="homepage"				'ҳ
Const db_User_QQ="QQ"						'QQ
Const db_User_Icq="icq"						'Icq
Const db_User_Msn="msn"						'Msn
Const db_User_Password="UserPassword"		 	        '
Const db_User_Question="userQuesion"				'ʾ
Const db_User_Answer="userAnswer"				'
Const db_User_Sign="usersign"					'ǩ
Const db_User_userFace="userface"				'ͷ
Const db_User_FaceWidth="userwidth"				'ͷ
Const db_User_FaceHeight="userheight"				'ͷ߶
Const db_User_RegDate="JoinDate"				'ע
Const db_User_LoginTimes="userlogins"				'¼
Const db_User_LastLoginTime="lastlogin"				'¼ʱ
Const db_User_LastLoginIP="UserLastIP"				'¼IP
Const db_User_UserClass="userclass"				'̳ûȼ¼ʱõ


'MYʹõûֶ
Const db_User_LockUser="lockuser"				'Ƿû
Const db_User_ArticleCount="ArticleCount"			'
Const db_User_ArticleChecked="ArticleChecked"			'
Const db_User_UserLevel="UserLevel"				'ûȼȨޣ
Const db_User_UserPoint="UserPoint"				'û
Const db_User_ChargeType="ChargeType"				'Ʒѷʽ
Const db_User_BeginDate="BeginDate"				'ʼ
Const db_User_Valid_Num="Valid_Num"				'Чֵ
Const db_User_Valid_Unit="Valid_Unit"				'Чڵλ


'̳ʹõûֶ
'Const db_User_BbsType="bbstype"
'Const db_User_Article="Article"
Const db_User_UserGroup="UserGroup"
'Const db_User_UserWealth="userWealth"
Const db_User_UserEP="userEP"
Const db_User_UserCP="userCP"
Const db_User_Title="title"
'Const db_User_Showre="showre"
'Const db_User_Reann="reann"
Const db_User_UserCookies="usercookies"
Const db_User_Birthday="birthday"
Const db_User_UserPhoto="UserPhoto"
Const db_User_UserPower="UserPower"
Const db_User_UserDel="UserDel"
Const db_User_UserIsBest="UserIsBest"
Const db_User_UserInfo="UserInfo"
Const db_User_UserSetting="UserSetting"
Const db_User_UserGroupID="UserGroupID"
Const db_User_TitlePic="TitlePic"
Const db_User_Userwealth="Userwealth"
Const db_User_Usermsg="Usermsg"
Const db_User_Userfav="Userfav"
Const db_User_Usertoday="Usertoday"
Const db_User_Userim="Userim"
Const db_User_Userwidth="Userwidth"
Const db_User_Userheight="Userheight"

%>

10Inc/function.asp
ڶCheckUserLoginedӳ
ңsqlLogin="select * from " & db_User_Table & " where " & db_User_LockUser & "=False and " & db_User_Name & "='" & username & "' and " & db_User_Password & "='" & password &"'"
ΪsqlLogin="select * from " & db_User_Table & " where LockUser=0 and " & db_User_Name & "='" & username &"'"

Ӵ˾УԭLogined=FalseΪ'Logined=False

ңif password<>rsLogin(db_User_Password) or UserLevel<rsLogin(db_User_UserLevel) then
Ϊif UserLevel<rsLogin(db_User_UserLevel) then

޸Ķļ嵥
ļ޸reg.asplogout.asplogin.aspȫҵļǣ
ֻṩļ޸ķļǸһ°ɣ

1INC/Dv_ClsMain.asp
ңDim Ad_3(100),i3    &&ԭ涯12
ӣ
dim mybbsdir
    MyBbsDir = "/bbs/"
ңCacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
Ϊ
'CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
CacheName = "asp163"
ңForum_sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split(request.ServerVariables("SCRIPT_NAME"),"/")(ubound(Split(request.ServerVariables("SCRIPT_NAME"),"/"))),""))
Ϊ
'Forum_sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split(request.ServerVariables("SCRIPT_NAME"),"/")(ubound(Split(request.ServerVariables("SCRIPT_NAME"),"/"))),""))
Forum_sn = "asp163"
ң
		StatUserID = Ccur(StatUserID)
		Response.Cookies(Forum_sn).Expires=DateAdd("s",3600,Now())
		Response.Cookies(Forum_sn).path=cookiepath
		Response.Cookies(Forum_sn)("StatUserID") = StatUserID
		'=SessionID+ʱ+ʱ+ID
Ϊ
		StatUserID = Ccur(StatUserID)
		Response.Cookies(Forum_sn).Expires=DateAdd("s",3600,Now())
		'Response.Cookies(Forum_sn).path=cookiepath
		Response.Cookies(Forum_sn)("StatUserID") = StatUserID
		'=SessionID+ʱ+ʱ+ID

ң'дǷɹɹ
6аResponse.Cookies(Forum_sn).path=cookiepathΪ'Response.Cookies(Forum_sn).path=cookiepath

ңPublic Sub EmptyCookies()
2Response.Cookies(Forum_sn).path=cookiepathΪResponse.Cookies(Forum_sn).path=cookiepath

If Trim(MyUserInfo(35)) = Memberword And Trim(MyUserInfo(5)) =Membername Then
	Session(CacheName & "UserID") = MyUserInfo
	Memberword = MyUserInfo(35)
	GetCacheUserInfo()
	Else
		If IsArray(Session(CacheName & "UserID")) Then
			If Session(CacheName & "UserID")(0)="Dvbbs" Then
				If Trim(Session(CacheName & "UserID")(4))=Trim(MyUserInfo(4)) And Trim(Session(CacheName & "UserID")(5))=Trim(MyUserInfo(5)) And Trim(Session(CacheName & "UserID")(6))=Trim(MyUserInfo(6)) Then
					Call NewPassword0()
				End If 
			Else
				UserID = 0
				EmptyCookies
				LetGuestSession()
			End If
		Else
			UserID = 0
			EmptyCookies
			LetGuestSession()
		End If 
	End If
Ϊ'If Trim(MyUserInfo(35)) = Memberword And Trim(MyUserInfo(5)) =Membername Then
		Session(CacheName & "UserID") = MyUserInfo
		Memberword = MyUserInfo(35)
		GetCacheUserInfo()
	'Else
		'If IsArray(Session(CacheName & "UserID")) Then
			'If Session(CacheName & "UserID")(0)="Dvbbs" Then
				'If Trim(Session(CacheName & "UserID")(4))=Trim(MyUserInfo(4)) And Trim(Session(CacheName & "UserID")(5))=Trim(MyUserInfo(5)) And Trim(Session(CacheName & "UserID")(6))=Trim(MyUserInfo(6)) Then
					'Call NewPassword0()
				'End If 
			'Else
				'UserID = 0
				'EmptyCookies
				'LetGuestSession()
			'End If
		'Else
			'UserID = 0
			'EmptyCookies
			'LetGuestSession()
		'End If 
	'End If

2mymodify.asp
Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
Ϊ'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath

3CONN.ASP
ңConst Forum_CacheName = "aspspy"
ΪConst Forum_CacheName = "asp163"